﻿
Namespace Negocios

    Public Class ClassificacaoTipo

#Region "Variáveis"


#End Region

#Region "Propriedades"


#End Region

#Region "Construtores"


#End Region

#Region "Funções Privadas"

        Private Function ConverterDadosEmObjeto(ByVal objClassificacaoTipoDados As Dados.ClassificacaoTipo) As Objetos.ClassificacaoTipo

            If objClassificacaoTipoDados Is Nothing Then Return Nothing

            Dim objClassificacaoTipo As New Objetos.ClassificacaoTipo

            With objClassificacaoTipo
                .CodigoClassificacao = Convert.ToInt32(objClassificacaoTipo.CodigoClassificacao)
                .DescricaoClassificacao = Convert.ToString(objClassificacaoTipoDados.DescricaoClassificacao)
            End With

            Return objClassificacaoTipo

        End Function


        Private Function ConverterDadosEmObjeto(ByVal lisClassificacaoTipoDados As List(Of Dados.ClassificacaoTipo)) As List(Of Objetos.ClassificacaoTipo)

            If lisClassificacaoTipoDados Is Nothing Then Return Nothing

            Dim lisClassificacaoTipo As New List(Of Objetos.ClassificacaoTipo)

            For Each ObjClassificacaoTipoDados In lisClassificacaoTipoDados
                lisClassificacaoTipo.Add(ConverterDadosEmObjeto(ObjClassificacaoTipoDados))
            Next

            Return lisClassificacaoTipo

        End Function

#End Region

#Region "Funções Friend"


#End Region

#Region "Funções Públicas"


#End Region

    End Class

End Namespace